0 REM << CD26-1C >>
1 REM  COMMODARE #22-1 :
2 REM         MAKING CHANGE
3 REM  SOLUTION  BY  B. ZIDOVEC
4 REM
10 INPUT"AMOUNT $";A:A=A*100:INPUT"# OF COINS";C:PRINT:PRINT" Q D N P":PRINT
20 FORQ=0TOA/25:FORD=0TOA/10:FORN=0TOA/5:FORP=0TOA:IFQ+D+N+P<>CTHEN40
30 IF 25*Q+10*D+5*N+P=A THEN PRINTQ;D;N;P:F=1
40 NEXT P,N,D,Q:IF F=0 THEN PRINT"NO SOLUTION"